home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / windows / prntbook.zip / PRNTBOOK.XWS
Text File  |  1992-05-26  |  1KB  |  65 lines
  1.  
  2. /*
  3. Prints parameters for all phone book entries
  4. */
  5. string any_key,info
  6.  
  7. Alert "Print to Screen or Printer?","S","P"
  8. if choice = 1 then goto print_to_screen
  9.  
  10. open output "phonbook.lst" as 1
  11. x=0
  12. While x < inbook
  13.   x=x+1
  14.     load bookname(x)
  15.  
  16.     write line  #1,"Name: " + name
  17.     write line  #1,"Description: " + description
  18.     write line  #1,"Phone Number: " + number
  19.     write line  #1,"Terminal Type: " + terminal
  20.     write line  #1,"Protocol: " + protocol
  21.     write line  #1,"Script name: " + script
  22.     write line  #1,"Speed: " + str(speed)
  23.     write line  #1,"Capture file: " + capfile
  24.     write line  #1, ""
  25.     write line  #1, ""
  26. Wend
  27.  
  28. close #1
  29. x=0
  30. open input "phonbook.lst" as 1
  31. printer on
  32. while not eof(1)
  33.     read line #1, info
  34.     lprint info
  35. wend
  36. printer off
  37.  
  38. Alert "Process Complete",OK
  39. end
  40.  
  41. label print_to_screen
  42. x=0
  43. While x < inbook
  44.   x=x+1
  45.     load bookname(x)
  46.  
  47.     Print "Name: " ; name
  48.     Print "Description: " ; description
  49.     Print "Phone Number: " ; number
  50.     Print "Terminal Type: " ; terminal
  51.     Print "Protocol: " ; protocol
  52.     Print "Script name: " ; script
  53.     Print "Speed: " ; speed
  54.     Print "Capture file: " ; capfile
  55.     print
  56.     print
  57. print "Press Enter for next entry"
  58. input any_key
  59. print
  60. print
  61. Wend
  62.  
  63. Alert "Printing Complete",OK
  64. end
  65.